home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #1 / Amiga Plus CD - 1997 - No. 01.iso / pd / programmierung / proasm / rexx / dopus / remasxresidents.dopus < prev    next >
Text File  |  1996-04-29  |  698b  |  32 lines
  1. /* Remove selected files as Residents from ASX */
  2. /* for Directory Opus 4, using ASX             */
  3. /* 06.07.93 by Daniel Weber                    */
  4.  
  5.  
  6.  
  7. OPTIONS RESULTS
  8. dopusPort = ADDRESS()            /* get port name of DOpus    */
  9.  
  10. status 3                /* get #of active window     */
  11. win = result
  12. status 13 win                /* get actual selected drive */
  13. path = result
  14. getselectedfiles '+'            /* get selected files from DOpus */
  15. IF RC ~= 0 THEN EXIT(0)
  16. files = result
  17.  
  18.  
  19. DO WHILE files ~=''
  20.   PARSE VAR files txtfile '+' files
  21.  
  22.   ADDRESS (''||dopusPort)        /* show file name  */
  23.   toptext 'RemResident 'path''txtfile
  24.  
  25.   ADDRESS 'asx_rexx'
  26.   RemResident path''txtfile        /* remove selected files as Residents */
  27.  
  28. END
  29.  
  30. EXIT(0)
  31.  
  32.